
source("D:/Dropbox/r-course/script/vpspph_project/xtreme_values.R")
setwd(D:/Dropbox/r-course/script/vpspph_project)
## EXAMPLE
xtreme_values(
inpath = c("Data/be_000HEG05_00CEMU_201001010000_201001312330_mez_ca05_cti30_0005.dat",
           "Data/be_000HEG05_00CEMU_201101010000_201101312330_mez_ca05_cti30_00052.dat"
           ),
outpath = c("Data/output1.dat"
            ),
para = "Ta_200",
fun = min)
